home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Caml Light 0.61 / Source / src / appli / prims.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-04  |  5.1 KB  |  274 lines  |  [TEXT/MPS ]
  1. #include "mlvalues.h"
  2. #include "prims.h"
  3. extern value tree_equal();
  4. extern value int_of_string();
  5. extern value format_int();
  6. extern value format_float();
  7. extern value float_of_string();
  8. extern value exp_float();
  9. extern value log_float();
  10. extern value sqrt_float();
  11. extern value power_float();
  12. extern value sin_float();
  13. extern value cos_float();
  14. extern value tan_float();
  15. extern value asin_float();
  16. extern value acos_float();
  17. extern value atan_float();
  18. extern value atan2_float();
  19. extern value create_string();
  20. extern value compare_strings();
  21. extern value blit_string();
  22. extern value fill_string();
  23. extern value get_vect16_item();
  24. extern value open_descriptor();
  25. extern value channel_descriptor();
  26. extern value channel_size();
  27. extern value flush();
  28. extern value output_char();
  29. extern value output_int();
  30. extern value output();
  31. extern value seek_out();
  32. extern value pos_out();
  33. extern value close_out();
  34. extern value input_char();
  35. extern value input_int();
  36. extern value input();
  37. extern value seek_in();
  38. extern value pos_in();
  39. extern value close_in();
  40. extern value extern_val();
  41. extern value intern_val();
  42. extern value hash_univ_param();
  43. extern value sys_exit();
  44. extern value sys_open();
  45. extern value sys_close();
  46. extern value sys_remove();
  47. extern value sys_rename();
  48. extern value sys_chdir();
  49. extern value sys_getenv();
  50. extern value sys_catch_break();
  51. extern value start_interp();
  52. extern value realloc_global();
  53. extern value static_alloc();
  54. extern value static_free();
  55. extern value static_resize();
  56. extern value gc();
  57. extern value obj_is_block();
  58. extern value obj_block();
  59. extern value available_primitives();
  60. extern value parse_engine();
  61. extern value get_next_char();
  62. extern value open_graph();
  63. extern value close_graph();
  64. extern value clear_graph();
  65. extern value size_x();
  66. extern value size_y();
  67. extern value set_color();
  68. extern value plot();
  69. extern value point_color();
  70. extern value moveto();
  71. extern value current_point();
  72. extern value lineto();
  73. extern value draw_arc();
  74. extern value set_line_width();
  75. extern value draw_char();
  76. extern value draw_string();
  77. extern value set_font();
  78. extern value set_text_size();
  79. extern value text_size();
  80. extern value fill_rect();
  81. extern value fill_arc();
  82. extern value fill_poly();
  83. extern value make_image();
  84. extern value dump_image();
  85. extern value draw_image();
  86. extern value get_image();
  87. extern value mouse_pos();
  88. extern value button_down();
  89. extern value read_key();
  90. extern value key_pressed();
  91. extern value sound();
  92. c_primitive cprim[] = {
  93.   tree_equal,
  94.   int_of_string,
  95.   format_int,
  96.   format_float,
  97.   float_of_string,
  98.   exp_float,
  99.   log_float,
  100.   sqrt_float,
  101.   power_float,
  102.   sin_float,
  103.   cos_float,
  104.   tan_float,
  105.   asin_float,
  106.   acos_float,
  107.   atan_float,
  108.   atan2_float,
  109.   create_string,
  110.   compare_strings,
  111.   blit_string,
  112.   fill_string,
  113.   get_vect16_item,
  114.   open_descriptor,
  115.   channel_descriptor,
  116.   channel_size,
  117.   flush,
  118.   output_char,
  119.   output_int,
  120.   output,
  121.   seek_out,
  122.   pos_out,
  123.   close_out,
  124.   input_char,
  125.   input_int,
  126.   input,
  127.   seek_in,
  128.   pos_in,
  129.   close_in,
  130.   extern_val,
  131.   intern_val,
  132.   hash_univ_param,
  133.   sys_exit,
  134.   sys_open,
  135.   sys_close,
  136.   sys_remove,
  137.   sys_rename,
  138.   sys_chdir,
  139.   sys_getenv,
  140.   sys_catch_break,
  141.   start_interp,
  142.   realloc_global,
  143.   static_alloc,
  144.   static_free,
  145.   static_resize,
  146.   gc,
  147.   obj_is_block,
  148.   obj_block,
  149.   available_primitives,
  150.   parse_engine,
  151.   get_next_char,
  152.   open_graph,
  153.   close_graph,
  154.   clear_graph,
  155.   size_x,
  156.   size_y,
  157.   set_color,
  158.   plot,
  159.   point_color,
  160.   moveto,
  161.   current_point,
  162.   lineto,
  163.   draw_arc,
  164.   set_line_width,
  165.   draw_char,
  166.   draw_string,
  167.   set_font,
  168.   set_text_size,
  169.   text_size,
  170.   fill_rect,
  171.   fill_arc,
  172.   fill_poly,
  173.   make_image,
  174.   dump_image,
  175.   draw_image,
  176.   get_image,
  177.   mouse_pos,
  178.   button_down,
  179.   read_key,
  180.   key_pressed,
  181.   sound,
  182.   0 };
  183. char *names_of_cprim [] = {
  184.   "tree_equal",
  185.   "int_of_string",
  186.   "format_int",
  187.   "format_float",
  188.   "float_of_string",
  189.   "exp_float",
  190.   "log_float",
  191.   "sqrt_float",
  192.   "power_float",
  193.   "sin_float",
  194.   "cos_float",
  195.   "tan_float",
  196.   "asin_float",
  197.   "acos_float",
  198.   "atan_float",
  199.   "atan2_float",
  200.   "create_string",
  201.   "compare_strings",
  202.   "blit_string",
  203.   "fill_string",
  204.   "get_vect16_item",
  205.   "open_descriptor",
  206.   "channel_descriptor",
  207.   "channel_size",
  208.   "flush",
  209.   "output_char",
  210.   "output_int",
  211.   "output",
  212.   "seek_out",
  213.   "pos_out",
  214.   "close_out",
  215.   "input_char",
  216.   "input_int",
  217.   "input",
  218.   "seek_in",
  219.   "pos_in",
  220.   "close_in",
  221.   "extern_val",
  222.   "intern_val",
  223.   "hash_univ_param",
  224.   "sys_exit",
  225.   "sys_open",
  226.   "sys_close",
  227.   "sys_remove",
  228.   "sys_rename",
  229.   "sys_chdir",
  230.   "sys_getenv",
  231.   "sys_catch_break",
  232.   "start_interp",
  233.   "realloc_global",
  234.   "static_alloc",
  235.   "static_free",
  236.   "static_resize",
  237.   "gc",
  238.   "obj_is_block",
  239.   "obj_block",
  240.   "available_primitives",
  241.   "parse_engine",
  242.   "get_next_char",
  243.   "open_graph",
  244.   "close_graph",
  245.   "clear_graph",
  246.   "size_x",
  247.   "size_y",
  248.   "set_color",
  249.   "plot",
  250.   "point_color",
  251.   "moveto",
  252.   "current_point",
  253.   "lineto",
  254.   "draw_arc",
  255.   "set_line_width",
  256.   "draw_char",
  257.   "draw_string",
  258.   "set_font",
  259.   "set_text_size",
  260.   "text_size",
  261.   "fill_rect",
  262.   "fill_arc",
  263.   "fill_poly",
  264.   "make_image",
  265.   "dump_image",
  266.   "draw_image",
  267.   "get_image",
  268.   "mouse_pos",
  269.   "button_down",
  270.   "read_key",
  271.   "key_pressed",
  272.   "sound",
  273.   0 };
  274.